From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 9 Aug 2022 01:24:55 +0000 (+0200)
Subject: ; * lisp/hex-util.el: Mention ash instead of lsh.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~288
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=5c3c18816e1cc75f5f343423c0084c709bcd5080;p=emacs.git

; * lisp/hex-util.el: Mention ash instead of lsh.
---

diff --git a/lisp/hex-util.el b/lisp/hex-util.el
index 0858e46ec54..101c8be7b48 100644
--- a/lisp/hex-util.el
+++ b/lisp/hex-util.el
@@ -41,8 +41,8 @@
 	 (dst (make-string (/ len 2) 0))
 	 (idx 0)(pos 0))
     (while (< pos len)
-      ;; logior and lsh are not byte-coded.
-      ;; (aset dst idx (logior (lsh (hex-char-to-num (aref string pos)) 4)
+      ;; logior and ash are not byte-coded.
+      ;; (aset dst idx (logior (ash (hex-char-to-num (aref string pos)) 4)
       ;; 			    (hex-char-to-num (aref string (1+ pos)))))
       (aset dst idx (+ (* (hex-char-to-num (aref string pos)) 16)
 		       (hex-char-to-num (aref string (1+ pos)))))
@@ -56,8 +56,8 @@
 	 (dst (make-string (* len 2) 0))
 	 (idx 0)(pos 0))
     (while (< pos len)
-      ;; logand and lsh are not byte-coded.
-      ;; (aset dst idx (num-to-hex-char (logand (lsh (aref string pos) -4) 15)))
+      ;; logand and ash are not byte-coded.
+      ;; (aset dst idx (num-to-hex-char (logand (ash (aref string pos) -4) 15)))
       (aset dst idx (num-to-hex-char (/ (aref string pos) 16)))
       (setq idx (1+ idx))
       ;; (aset dst idx (num-to-hex-char (logand (aref string pos) 15)))